home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / HyperCard / Education / Weights & Measures / card_3503.txt < prev    next >
Encoding:
Text File  |  1991-10-27  |  9.6 KB  |  478 lines
  1. -- card: 3503 from stack: in
  2. -- bmap block id: 8290
  3. -- flags: 4000
  4. -- background id: 2785
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on calculate
  8.   global x
  9.   set lockscreen to true
  10.   put .4536 into c
  11.   put x*1000 into card field 1
  12.   put x into card field 2
  13.   put x/1000 into card field 3
  14.   put x*9.80665 into card field 4
  15.   put x*9.80665/1000 into card field 5
  16.   put x *16/ c into card field 6
  17.   put x / c into card field 7
  18.   put x / (2240*c)into card field 8
  19.   put x / (2000*c) into card field 9
  20.   put x/453.6 into card field 10
  21.   put x/(c*112) into card field 11
  22.   set lockscreen to false
  23. end calculate
  24.  
  25.  
  26. -- part 1 (button)
  27. -- low flags: 00
  28. -- high flags: A002
  29. -- rect: left=20 top=77 right=99 bottom=128
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Grams
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   global x
  41.   ask "Enter Value"
  42.   put it/1000 into x
  43.   calculate
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 2 (field)
  49. -- low flags: 01
  50. -- high flags: 0002
  51. -- rect: left=20 top=98 right=117 bottom=128
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: 
  60.  
  61.  
  62. -- part 3 (button)
  63. -- low flags: 00
  64. -- high flags: A002
  65. -- rect: left=21 top=125 right=147 bottom=129
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Kilogram
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global x
  77.   ask "Enter Value"
  78.   put it into x
  79.   calculate
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 4 (button)
  85. -- low flags: 00
  86. -- high flags: A002
  87. -- rect: left=19 top=173 right=196 bottom=135
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Tonne (metric)
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   global x
  99.   ask "Enter Value"
  100.   put it*1000 into x
  101.   calculate
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 5 (field)
  107. -- low flags: 01
  108. -- high flags: 0002
  109. -- rect: left=21 top=146 right=165 bottom=129
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: 
  118.  
  119.  
  120. -- part 6 (field)
  121. -- low flags: 01
  122. -- high flags: 0002
  123. -- rect: left=19 top=194 right=213 bottom=135
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: 
  132.  
  133.  
  134. -- part 8 (button)
  135. -- low flags: 00
  136. -- high flags: A002
  137. -- rect: left=22 top=238 right=260 bottom=130
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Newtons
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   global x
  149.   ask "Enter Value"
  150.   put it/9.80665 into x
  151.   calculate
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 7 (field)
  157. -- low flags: 01
  158. -- high flags: 0002
  159. -- rect: left=22 top=259 right=278 bottom=130
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: 
  168.  
  169.  
  170. -- part 9 (button)
  171. -- low flags: 00
  172. -- high flags: A002
  173. -- rect: left=23 top=289 right=311 bottom=131
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Kilo Newton
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   global x
  185.   ask "Enter Value"
  186.   put it*1000/9.80665 into x
  187.   calculate
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 10 (button)
  193. -- low flags: 00
  194. -- high flags: A002
  195. -- rect: left=241 top=78 right=100 bottom=349
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Ounces
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   global x
  207.   ask "Enter Value"
  208.   put it*.4536/16 into x
  209.   calculate
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 11 (field)
  215. -- low flags: 01
  216. -- high flags: 0002
  217. -- rect: left=23 top=310 right=329 bottom=131
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: 
  226.  
  227.  
  228. -- part 12 (field)
  229. -- low flags: 01
  230. -- high flags: 0002
  231. -- rect: left=241 top=99 right=118 bottom=349
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: 
  240.  
  241.  
  242. -- part 13 (field)
  243. -- low flags: 01
  244. -- high flags: 0002
  245. -- rect: left=242 top=149 right=168 bottom=350
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: 
  254.  
  255.  
  256. -- part 14 (field)
  257. -- low flags: 01
  258. -- high flags: 0002
  259. -- rect: left=166 top=195 right=214 bottom=291
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: 
  268.  
  269.  
  270. -- part 15 (button)
  271. -- low flags: 00
  272. -- high flags: A002
  273. -- rect: left=242 top=128 right=150 bottom=350
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Pounds
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   global x
  285.   ask "Enter Value"
  286.   put it*.4536 into x
  287.   calculate
  288. end mouseUp
  289.  
  290.  
  291.  
  292. -- part 16 (button)
  293. -- low flags: 00
  294. -- high flags: A002
  295. -- rect: left=166 top=174 right=196 bottom=291
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: Ton Long (2240#)
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   global x
  307.   ask "Enter Value"
  308.   put it*.4536*2240 into x
  309.   calculate
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 17 (button)
  315. -- low flags: 00
  316. -- high flags: A002
  317. -- rect: left=294 top=174 right=196 bottom=419
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: Ton Short (2000#)
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   global x
  329.   ask "Enter Value"
  330.   put it*.4536*2000 into x
  331.   calculate
  332. end mouseUp
  333.  
  334.  
  335.  
  336. -- part 18 (field)
  337. -- low flags: 01
  338. -- high flags: 0002
  339. -- rect: left=294 top=195 right=214 bottom=419
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 1
  343. -- font id: 0
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 16
  347. -- part name: 
  348.  
  349.  
  350. -- part 21 (button)
  351. -- low flags: 00
  352. -- high flags: A002
  353. -- rect: left=242 top=224 right=246 bottom=350
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: Kip
  362. ----- HyperTalk script -----
  363. on mouseUp
  364.   global x
  365.   ask "Enter Value"
  366.   put it*453.6 into x
  367.   calculate
  368. end mouseUp
  369.  
  370.  
  371.  
  372. -- part 22 (field)
  373. -- low flags: 01
  374. -- high flags: 0002
  375. -- rect: left=242 top=245 right=264 bottom=350
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 0
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: 
  384.  
  385.  
  386. -- part 23 (button)
  387. -- low flags: 00
  388. -- high flags: A002
  389. -- rect: left=242 top=290 right=312 bottom=350
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: HundredWeight
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   global x
  401.   ask "Enter Value"
  402.   put it*0.4536*112 into x
  403.   calculate
  404. end mouseUp
  405.  
  406.  
  407.  
  408. -- part 25 (field)
  409. -- low flags: 01
  410. -- high flags: 0002
  411. -- rect: left=242 top=311 right=330 bottom=350
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 0 / 0
  414. -- text alignment: 1
  415. -- font id: 0
  416. -- text size: 12
  417. -- style flags: 0
  418. -- line height: 16
  419. -- part name: 
  420.  
  421.  
  422. -- part contents for card part 2
  423. ----- text -----
  424. 101971.621298
  425.  
  426. -- part contents for card part 5
  427. ----- text -----
  428. 101.971621
  429.  
  430. -- part contents for card part 6
  431. ----- text -----
  432. 0.101972
  433.  
  434. -- part contents for card part 7
  435. ----- text -----
  436. 1000
  437.  
  438. -- part contents for card part 11
  439. ----- text -----
  440. 1
  441.  
  442. -- part contents for card part 12
  443. ----- text -----
  444. 3596.882585
  445.  
  446. -- part contents for card part 13
  447. ----- text -----
  448. 224.805162
  449.  
  450. -- part contents for card part 14
  451. ----- text -----
  452. 0.100359
  453.  
  454. -- part contents for card part 18
  455. ----- text -----
  456. 0.112403
  457.  
  458. -- part contents for card part 22
  459. ----- text -----
  460. 0.224805
  461.  
  462. -- part contents for card part 25
  463. ----- text -----
  464. 2.007189
  465.  
  466. -- part contents for background part 5
  467. ----- text -----
  468. 1 --,gram,grams,gm,g,gms,
  469. 2 --,kilograms,kilogram,kg,klg,
  470. 3 --,tonne,tonnes,tons metric,metric tons,tonnes metric,metric tonnes,tonne metric,metric tonne,met ton,met tons,met tonne,met tonnes,ton met,tons met,tonne met,tonnes met,mt,met t,t met,tn met,mt tn,
  471. 4 --,newton,newtons,n,
  472. 5 --,kilonewton,kilonewtons,kilo newton,kilo newtons,kn,kns,
  473. 6 --,ounce,ounces,oz,dry ounce,dry ounces,dry oz,
  474. 7 --,pounds,pound,lb,lbs,#,
  475. 8 --,long ton,ton long,long tons,tons long,long tn,tn long,long t,t long,lg ton,ton lg,
  476. 9 --,ton,tons,short ton,ton short,short tons,tons short,tn,t,sh ton,ton sh,sh tons,tons sh,sh t,t sh,
  477. 10 --,kip,kips,
  478. 11 --,hundredweight,hundredweights,hundred weight,hundred weights,hundred wt,100 weight,100 wt,100-wt,